<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>944</cardCount>
<cardID>2862</cardID>
<listID>262003</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal sectionNameglobal olduserlevelif the version < 2.0 thenanswer "This stack needs HyperCard version 2.0."set lockMessages to TRUEgo homeelsego to card "Cindy's Recipes"show menubarput empty into sectionNameput the userlevel into olduserlevelif the userlevel < 2 thenset userlevel to 2end ifcreate menu "Print"create menu "Utilities"put "Shopping List ,Recipe,Cookbook" into menu "Print"put "Find...,Edit Shopping List,Add Section" into menu "Utilities"put "--,Add Recipe,Delete Recipe,Speak Recipe" after menu "Utilities"put "Recalculate Calories" after menu "Utilities"put "--,Export Recipes,Import Recipes,Import Single,Copy Recipe to Clipboard" after menu "Utilities"set the cmdChar of menuItem "Find..." of menu "Utilities" to "F"put "About Cindy's Recipes..." into menuItem 1 of menu 1¬with menuMsg "AboutRecipes"set the enabled of menuItem "Recipe" of menu "Print" to falseset the enabled of menuItem "Delete Recipe" of menu "Utilities" ¬to falseset the enabled of menuItem "Speak Recipe" of menu "Utilities" ¬to falseset the enabled of menuItem "Copy Recipe to Clipboard" of menu "Utilities" ¬to falseset the enabled of menuItem "Recalculate Calories" of menu ¬"Utilities" to falseend ifend openStackon closeStackglobal olduserleveldelete menu "Print"delete menu "Utilities"set userlevel to olduserlevelend closeStackon doMenu which -- get our menu items from doMenu before HyperCard does...global theSpeechif which is "Shopping List" thengo to card "Shopping List"else if which is "Shopping List " thengo to card "Shopping List"send mouseUp to card button "Print" of card "Shopping List"else if which is "Cookbook" thengo to card "Print Cookbook"else if which is "Find..." thengo to card "Find..."else if which is "Edit Shopping List" thengo to card "Shopping List"else if which is "Add Section" thengo to card "Cindy's Recipes"show background button "Done"show background button "Sort"set locktext of card field "Sections" to falseput "Click on the Done button when you're finished modifying the field."wait 1 secondhide msgelse if which is "Add Recipe" thenput empty into sectionNamego to card "Add Recipe"else if which is "Delete Recipe" or¬(which is "Delete Card" and ¬the short name of this bg is "Recipes") or¬(which is "Cut Card" and¬the short name of this bg is "Recipes") thenanswer "Delete recipe " & bg field "Name" & "?" with "Yes"¬or "No"if it is "Yes" thenlock screenput "" & bg fld "Section" & "" into checkif cd fld "Sections Update" of cd "Cindy's Recipes" ¬contains check then--already set to be updated - no need to add itelseput check & return after cd fld "Sections Update" of ¬cd "Cindy's Recipes"end ifsend "domenu Delete Card" to HyperCardgo prev cardunlock screenend ifelse if which is "Recipe" thenanswer "Print on plain paper or a 3x5 index card?" with "Paper" or "Card" or "Cancel"if it is "Cancel" thenexit doMenuend ifhide menubarhide bg btn "Add to Shopping List"hide bg btn "Clean Up"hide bg btn "Prev"hide bg btn "Next"hide bg btn "Return"if it is "Paper" thenprint this cardelseanswer "Put the envelope face up in the manual paper tray, " &¬"the top away from you. Make sure you have the LaserWriter chosen, " &¬"and the page setup set to " & quote & "Landscape" & quoteopen report printing with dialogprint this cardclose printingend ifclose printingshow menubarshow bg btn "Add to Shopping List"show bg btn "Clean Up"show bg btn "Prev"show bg btn "Next"show bg btn "Return"else if which is "Speak Recipe" thenput background field "Directions" of this card into card field¬"Directions" of card "Speak Recipe"push cardgo to card "Speak Recipe"else if which is "Recalculate Calories" thenput bg field "Ingredients" into bg field "ingredients" of card "calories"push cardgo to card "Calories"send "findCalories" to this cardelse if which is "About Hypercard..." thenaboutRecipeselse if which is "Help" thenhelpRecipeselse if which is "Export Recipes" thenexportRecipeselse if which is "Import Recipes" thenimportRecipeselse if which is "Import Single" thenimportSingleelse if which is "Copy Recipe to Clipboard" thencopyRecipeelsepass doMenu -- Remember to pass on menu commands you don't trap!end ifend doMenuon hiliteOnlyMerepeat with X = 1 to the number of card buttonsset the hilite of card button X to falseend repeatrepeat with X = 1 to the number of background buttonsset the hilite of bg button X to falseend repeatset the hilite of the target to trueend hiliteOnlyMeon aboutRecipeslock screenpush cardgo to card "Registration"unlock screen with iris openwait until the mouseClicklock screenpop cardunlock screen with iris closeend aboutRecipeson helpRecipeslock screenpush cardgo to card "Help"unlock screen with stretch from topend helpRecipes-- This handler is named "say" to maintain compatibility with-- older versions of Macintalk for HyperCard 1.2.x which used-- a handler named "say".on say subject-- I had trouble getting macintalkSay to speak strings longer-- then 250 bytes in length, so I wrote these handlers.if the length of subject < 250 thenmacintalkSay subjectelseif "." is not in subjectthen chunkProcess subjectelse sentenceProcess subjectend ifend sayon sentenceProcess subject-- macintalkSay it by sentences.put empty into wkSubjectrepeat until subject is emptyput offset(".",subject) into lastCharif lastChar is zero thenmacintalkSay subjectput empty into subjectelsemacintalkSay char one to lastChar of subjectdelete char one to lastChar of subjectend ifend repeatend sentenceProcesson chunkProcess subject-- This handler breaks subject up into ~ 230 byte chunks.put empty into wkSubjectrepeat with w = one to number of words of subjectput word w of subject & space after wkSubjectif the length of wkSubject > 230 thenmacintalkSay wkSubjectput empty into wkSubjectend ifend repeatmacintalkSay wkSubjectend chunkProcesson exportRecipes--file format delimited by tabs--Section,Calories,Name,Serves,Ingredients,Directionsask file "What file do you want to save this under?" with "Recipes - Tab Delimited"if it is empty then exit exportRecipesput it into fileNamepush cardlock screenset cursor to watchopen file fileNamego first cd in bg "Recipes"repeat with X = 1 to the number of cds in this bgset cursor to busygo cd X of this bgwrite fld "section" & tab &¬fld "Calories" & tab &¬fld "Name" & tab &¬fld "Serves" & tab &¬fld "Ingredients" & tab &¬fld "Directions" & ""¬to file fileNameend repeatclose file fileNameanswer "File " & fileName & " written."pop cardend exportRecipeson importRecipesanswer file "What file do you want to read from?" of type "TEXT"if it is empty then exit importRecipespush cardlock screenset cursor to watchset itemDelimiter to tabput it into fileNameopen file fileNamego first cd in bg "Recipes"repeat foreverset cursor to busyread from file fileName until ""if it is empty then exit repeatdoMenu "New Card"put stripRet(item 1 of it) into fld "Section"put stripRet(item 2 of it) into fld "Calories"put stripRet(item 3 of it) into fld "Name"put stripRet(item 4 of it) into fld "Serves"put stripRet(item 5 of it) into fld "Ingredients"put stripRet(item 6 of it) into fld "Directions"delete last char of fld "Directions"end repeatclose file fileNameanswer "Recipes from file " & fileName & " imported."pop cardend importRecipeson importSingleanswer file "What file do you want to read from?" of type "TEXT"if it is empty then exit importSingleput it into fileNameopen file fileNamego last cd in bg "Recipes"set cursor to busyread from file fileName for 30000put it into theRecipeclose file fileNamedoMenu "New Card"put "New" into fld "Section"put empty into fld "Calories"put empty into fld "Serves"put theRecipe into bg fld "New Recipe"show bg fld "New Recipe"show bg btn "Done"show bg btn "Name"show bg btn "Ingredients"show bg btn "Directions"show bg btn "Calories"show bg btn "Serves"doMenu "Background"end importSinglefunction stripRet theTextrepeat foreverif first char of theText is return thendelete first char of theTextelseexit repeatend ifend repeatrepeat foreverif last char of theText is return thendelete last char of theTextelseexit repeatend ifend repeatreturn theTextend stripReton copyRecipelock screenshow bg fld "Copied Recipe"put fld "Name" & return & return into bg fld "Copied Recipe"put false into extraReturnif fld "Serves" is not empty thenput "Serves: " & fld "Serves" & return after bg fld "Copied Recipe"put true into extraReturnend ifif fld "Calories" is not empty and (fld "Calories" is not "0") thenput "Calories: " & fld "Calories" & return after bg fld "Copied Recipe"put true into extraReturnend ifif extraReturn thenput return after bg fld "Copied Recipe"end ifput fld "Ingredients" & return & return after bg fld "Copied Recipe"put fld "Directions" & return & return after bg fld "Copied Recipe"select line 1 to 999 of bg fld "Copied Recipe"doMenu "Copy Text"hide bg fld "Copied Recipe"end copyRecipeon updateSection sectionNameput "" & sectionName & "" into checkif cd fld "Sections Update" of cd "Cindy's Recipes" ¬contains check then--already set to be updated - no need to add itelseput check & return after cd fld "Sections Update" of ¬cd "Cindy's Recipes"end ifend updateSection</script>
